(ns lastfm-music-recommendation.test.datomic.links
  (:use [clojure.test])
  (:use [lastfm-music-recommendation.db.datomic]))

(deftest links-to-visit
   (let [result (count (get-links-to-visit))]
        (is (= true (and (< result 31) (> result 0))))))

(deftest link-save
  (is (= 4 (count (save-link "http://test.com"))))
  (is (= nil (save-link "http://test.com"))))

(deftest visited-set
  (is (= 4 (count (set-visited! "http://test.com")))))

(deftest link-remove
  (is (= 4 (count (remove-link "http://test.com")))))





